Función resample() mensualmente y graficarlos

Librerías a utilizar

library(readr)
library(ggplot2)

Use suppressPackageStartupMessages() to
eliminate package startup messages

library(skimr)
library(dplyr)
library(lubridate)

Attaching package: ‘lubridate’

The following objects are masked from ‘package:base’:

    date, intersect, setdiff, union

library(openair)

Cargar los datos de “temixco.csv”

data_temixco <-read_csv("../data/temixco.csv")

Rows: 52560 Columns: 8
── Column specification ─────────────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
dbl  (7): Ib, Ig, To, RH, WS, WD, P
dttm (1): time

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

data_temixco

Probando la función homóloga a “resample()”

• Se usará la función date_group dentro de la librería clock.
• Esta funció agrupa los objetos de tiempo en periodos con precisión desde segundos hasta años
• \(n\) indica el número de veces de la frecuencia.

month_data <- data_temixco %>%
  mutate(
    month = date_group(data_temixco$time, "month", n = 1)
  ) %>% 
  group_by(month) %>% 
  summarize(across(colnames(data_temixco), mean)) %>% 
  select(everything(), -time)
month_data

Graficar el df anterior como una serie de tiempo:

library(TSstudio)
ts_plot(month_data,
        type = "multiple",
        title = "Promedio mensual")